home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 10 / AACD 10.iso / AACD / Resources / Online / Term / Extras / Source / gtlayout-source.lha / LTP_DefaultHistoryHook.c < prev    next >
C/C++ Source or Header  |  1996-08-22  |  1KB  |  54 lines
  1. /*
  2. **    GadTools layout toolkit
  3. **
  4. **    Copyright © 1993-1996 by Olaf `Olsen' Barthel
  5. **        Freely distributable.
  6. **
  7. **    :ts=4
  8. */
  9.  
  10. #ifndef _GTLAYOUT_GLOBAL_H
  11. #include "gtlayout_global.h"
  12. #endif
  13.  
  14. ULONG SAVE_DS ASM
  15. LTP_DefaultHistoryHook(REG(a0) struct Hook *Hook,REG(a1) STRPTR NewString,REG(a2) struct Gadget *Gadget)
  16. {
  17.     ObjectNode            *Node    = (ObjectNode *)Gadget->UserData;
  18.     struct LayoutHandle    *Handle = Node->Special.String.LayoutHandle;
  19.     struct MinList        *List    = (struct MinList *)Hook->h_Data;
  20.  
  21.     if(NewString)
  22.     {
  23.         ULONG *Data;
  24.  
  25.         if(Data = (ULONG *)LTP_Alloc(Handle,sizeof(ULONG) + sizeof(struct Node) + strlen(NewString) + 1))
  26.         {
  27.             struct Node *NewNode;
  28.  
  29.             *Data++ = sizeof(ULONG) + sizeof(struct Node) + strlen(NewString) + 1;
  30.  
  31.             NewNode = (struct Node *)Data;
  32.  
  33.             NewNode->ln_Name = (STRPTR)(NewNode + 1);
  34.  
  35.             strcpy(NewNode->ln_Name,NewString);
  36.  
  37.             AddTail((struct List *)List,NewNode);
  38.         }
  39.         else
  40.             return(FALSE);
  41.     }
  42.     else
  43.     {
  44.         if(List->mlh_Head->mln_Succ)
  45.         {
  46.             ULONG *Data = (ULONG *)RemHead((struct List *)List);
  47.  
  48.             LTP_Free(Handle,&Data[-1],Data[-1]);
  49.         }
  50.     }
  51.  
  52.     return(TRUE);
  53. }
  54.